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-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 0 of MTHSCEXP 


1-001 - epeese version number and gopyrignt yet SAG The Last edit 
umber for version 0 was 
1-002 - add """' to the PSECT directive. JBS MOVE oe 
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1-005 DECLARAT Breer obs $150.59 ANAT eaeiaricexeemarn:1 2% (3 


33 »~SBTTL DECLARATIONS 
ef INCLUDE FILES: 
ge | OERR.MAR 
i 
o8 65 ; EXTERNAL aa He 
0 96 -GLOBL MTHS$SIN_R4 
00 6 LOBL MIHSCOS” RG 
00 68 -GLOBL MTHSEXP_R4 
4 $? 
0 0; 
4 4 : nn 
$33 
000 74 ; 
44 75 ; PSECT DECLARATIONS: 
00000000 76 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 77 
0000 78 ; 
0000 79 ; EQUATED SYMBOLS: 
00000004 0000 80 argadr = 4 ; offset from AP of arg adr 
$33 


0000 83 : OWN STORAGE: 
0000 «84 : NONE 
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O05 mTHSe - yes COMPLEX ETO, “SEP=1 1986 9 ‘08: 93 EMTHRIL. SR SRCJ MTHCEXP.MAR: 1 - (4) 
-SBTTL MTHSCEXP = perform COMPLEX exponentiation 
is : FUNCTIONAL DESCRIPTION: 
i: ihe result of the operation e ** (r, i) is computed 
y: 
= 
94 result = (EXP(r) * COS(i), EXP(r) * SINC(i)) 


CALLING SEQUENCE: 
Exponential.wfc.v = MTHSCEXP(arg.rfc.r) 


INPUT PARAMETERS: 
The one input parameter is the address of COMPLEX number (r, i), 
where r and i are both single-precision floating point values. 


IMPLICIT INPUTS: 
NONE 
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OUTPUT PARAMETERS: 
NONE 


stadt CODES: 


SIDE EFFECTS: 


MMNMNN 2 2 SS | SQOOOOOOCOCOOOOOO 
FUN (OC OODNOUE WIN OS OONA UF WN" OWOOnou 
Bete Ge Se Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Se Se Ge Sse Ge Ge Se Ge Sse Gee Ge Se 
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a a kk kk kd dd dd od 
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0 
0 
0 
0 
0 
0 
6 
0 Signals: MTH$_SINSIGLOS if {it > 2*PI*2**31, 
Floating Overflow if r > 88.028 
0 =o 
: 
OOFC 0 -ENTRY MTHSCEXP, “M<R2,R3,R4,R5,R6,R7> 
0 MTHSFLAG_JACKET : resignal 
6D  Q0000000'GF 9E 0 MOVAB G“MTHSSJACKET_HND, (FP) 
00 3; set handler address to jacket 
00 : handler 
009 125 
50 gf BC D0 bp 1 § MOVL Rorgner (Mt), RO ; RO=er 
000009 a 16 00 1 JSB MTHSEXP_R4 3; RO = EXP(r) 
5 0 00 4 : 3 MOVL RO, R5 : RS = EXP(r) 
56 04 AC 00 3 ! ? MOVL argadr(AP), R6 : R6 => (r, i) 
50 Bf A6 DO 001 1 § MOVL 4(R6), RO 3; RO= 1 
000009 Over 16 OO1E 1 JSB MTHS S1N_RG : RO = SINCi) 
5 0 00 1 : MOVL RO 3 R7 = SING) 
50 of A6 00 1 § MOVL 4(R6) ; RO =i 
00000000'EF 16 1 JSB mINgcOs” e, > RO = COS(i) 


IMPLICIT OUTPUTS: 
NONE 
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Symbol table 6-SEP- 9 (CMTHRTL.SRCIMTHCEXP.MAR; 1 (4) 


ARGADR = 00000004 

RIE PEAERES HND tteeeeee =X 1 
MTHSCEXP 00000000 RG 1 
MTHSCOS_R4 etererer G 0 
MTHSEXP_R4 eereeeee GC 00 
MTHSSIN_R4 eeeneere GC 00 
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PSECT name Allocation PSECT No. Attributes 


ABS 00000000 “( i f 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
“MTHSCODE 00000039 ¢ 57.) $f 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


pew esecour rem en merece ern omoae + 


! ; Performance indicators ! 


waren eee ome coe ensenenrnaienl 


Phase Page faults CPU Time Elapsed Time 


Initialization 3 00:00:00.10 00:00:00.72 
ponnene processing 133 00:00:00.65 00:00:06.10 
00:00:00.58 00:00:02.56 

Synbol table sort 0 00:00:00.00 Bo BS TOY Be 
Pass 2 42 00:00:00.50 00:00:01.9 

Symbol table output § 00:00:00.01 00:00:00.06 
Psect synopsis output 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 288 00:00:01.87 00:00:11.39 


The working set Limit was 900 pages. 

2308 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space atyecarse to hold 6 non-local and 0 local symbols. 
204 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to define 1 macro. 


Gooweceeeeewerececececcecce 


Macro Library name Macros defined 
"S255SDUAZB:(SYSLIBJSTARLET.MLB;20 0 ttt "' 
0 GETS were required to define 9 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESS1ON/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCEXP/OBJ=OBJ$:MTHCEXP MSRCS:MTHJACKE T/UPDATE=(ENHS:MTHJACKET) +MSRCS: 
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